;==================
; addnsadir
;==================
;addnsadir߂̏㏑
*addnsadir
getparam $addnsadir_input
if $addnsadir_input="" return ; 󗓂Ȃ牽ȂB
if $addnsadir_input=$addnsadir_cache return ; ݂̐ݒƓȂ牽ȂB
fileexist %addnsadir_input,$addnsadir_input
if %addnsadir_input=0 mesbox "u"+$addnsadir_input+"v݂͑܂B","x"
if %addnsadir_input=0 mesbox "͕̌̓ۏ؂ł܂B","x"
if %addnsadir_input=0 return
_addnsadir $addnsadir_input
mov $addnsadir_cache,$addnsadir_input
return
;==================
; get_addnsadir
;==================
;݁Aaddnsadirɐݒ肳ĂfBNg擾B
*get_addnsadir
getparam s%addnsadir_cache
mov $%addnsadir_cache,$addnsadir_cache
return
;==================
; get_registory
;==================
;getreg̃bp[BԍƁA̔ԍɑΉfBNgԂB
*get_registory
getparam s%reg_var,%reg_key
mov $%reg_var,""
if %reg_key<1 return
if %reg_key>REGISTRY_LAST return
skip %reg_key
mov $reg_key,"Software\07th_Expansion\higurasi":mov $reg_var,"gamedir":goto *get_registory_next
mov $reg_key,"Software\07th_Expansion\higurasi2":mov $reg_var,"gamedir":goto *get_registory_next
mov $reg_key,"Software\07th_Expansion\higurasi3":mov $reg_var,"gamedir":goto *get_registory_next
mov $reg_key,"Software\07th_Expansion\higurasi4":mov $reg_var,"gamedir":goto *get_registory_next
mov $reg_key,"Software\07th_Expansion\higurasi5":mov $reg_var,"gamedir":goto *get_registory_next
mov $reg_key,"Software\07th_Expansion\higurasi6":mov $reg_var,"gamedir":goto *get_registory_next
mov $reg_key,"Software\07th_Expansion\higurasi7":mov $reg_var,"gamedir":goto *get_registory_next
mov $reg_key,"Software\07th_Expansion\higurasi8":mov $reg_var,"gamedir":goto *get_registory_next
mov $reg_key,"Software\07th_Expansion\higurasi9":mov $reg_var,"gamedir":goto *get_registory_next
mov $reg_key,"Software\07th_Expansion\Umineko1":mov $reg_var,"gamedir":goto *get_registory_next
mov $reg_key,"Software\07th_Expansion\Umineko2":mov $reg_var,"gamedir":goto *get_registory_next
mov $reg_key,"Software\07th_Expansion\Umineko3":mov $reg_var,"gamedir":goto *get_registory_next
mov $reg_key,"Software\07th_Expansion\Umineko4":mov $reg_var,"gamedir":goto *get_registory_next
mov $reg_key,"Software\07th_Expansion\Umineko5":mov $reg_var,"gamedir":goto *get_registory_next
mov $reg_key,"Software\07th_Expansion\Umineko6":mov $reg_var,"gamedir":goto *get_registory_next
mov $reg_key,"Software\07th_Expansion\Umineko7":mov $reg_var,"gamedir":goto *get_registory_next
mov $reg_key,"Software\07th_Expansion\Umineko8":mov $reg_var,"gamedir":goto *get_registory_next
mov $reg_key,"Software\TYPE-MOON\P":mov $reg_var,"directory":goto *get_registory_next
mov $reg_key,"Software\TYPE-MOON\̌\":mov $reg_var,"directory":goto *get_registory_next
*get_registory_next
getreg $%reg_var,$reg_key,$reg_var
if $%reg_var="" return
; A\
len %reg_len,$%reg_var
mid $reg_len,$%reg_var,%reg_len-1,1
notif $reg_len="\" add $%reg_var,"\"
return
;==================
; recommend
;==================
; \tgĂ邩ǂmFB
; ͌ʂ󂯎
; ׂ͒\tg̔ԍBԍget_registory̎wƓB
; O̓[hBȂꍇ̓K肷B0Ȃx̂݁B1ȂIB2Ȃ狭IB
*recommend
getparam i%recommend_result,%recommend_id,%recommend_mode
mov %%recommend_result,1
get_registory $recommend_id,%recommend_id
notif $recommend_id="" return
mov %%recommend_result,0
mesbox "̊ɂ́AKvȃ\tgCXg[ĂȂ\܂B","x"
mesbox "Kv͕t̃}jAǂ݂B","x"
if %recommend_mode=0 return
if %recommend_mode=2 end
mesbox "̂܂܎s𑱂ƁAdȎxႪ鋰ꂪ܂B","x"
yesnobox %recommend_id,"̂܂ܑ܂H","x"
if %recommend_id=0 end
return
;==================
; chnsa
;==================
; addnsadirget_registorygݍ킹bp[
*chnsa
getparam %chnsa_id
get_registory $chnsa_id,%chnsa_id
if $chnsa_id="" return
addnsadir $chnsa_id
mov %chnsa_cache,%chnsa_id
return
;==================
; get_chnsa
;==================
; ݂ǂ̊ɂĂ邩擾B
*get_chnsa
getparam i%chnsa_id
mov %%chnsa_id,%chnsa_cache
return
;==================
; music_set
;==================
; yt@ĈĂfBNgw肵܂B
; ɗ^鐔́Aget_registoryŎĝƓłB
*music_set
getparam %music_set_input
get_registory $music_set_cache,%music_set_input
if $music_set_cache="" return
mov %music_set_cache,%music_set_input
return
;==================
; music_off
; music_on
; music_mode
;==================
; OɒTɍssȂύX܂B
; onɂΒTɍs܂BoffɂΒTɍs܂Bmode݂͌̃[h擾܂B
; ftHgłonɂȂĂ܂B
*music_on
mov %music_set_mode,0
return
*music_off
mov %music_set_mode,1
return
*music_mode
getparam i%music_set_input
mov %%music_set_input,%music_set_mode
return
;==================
; music_translate
;==================
*music_translate
getparam s%music_file
if %music_set_mode=0 mov $%music_file,$music_set_cache+$%music_file
return
;==================
; music_ch_verify
;==================
; `lԍǂB
*music_ch_verify
getparam i%music_set_result,%music_set_input
mov %%music_set_result,0
if %music_set_input>=0 && %music_set_input<50 mov %%music_set_result,1
if %%music_set_result=1 return
itoa $music_set_input,%music_set_input
add $music_set_input,"̓`lԍƂĐ܂B(0-49)"
mesbox $music_set_input,"`lԍmFĂB"
return

;==================
; volume_mode_on
; volume_mode_off
; volume_mode
;==================
; ㏑chvolggȂB܂Ȁ݂Ԃ擾B
; ftHǵugpȂv
*volume_mode_on
mov %dwave_vol,1
return
*volume_mode_off
mov %dwave_vol,0
return
*volume_mode
getparam i%music_set_result
mov %%music_set_result,%dwave_vol
return

;==================
; ㏑yn
;==================

*bgm
getparam $bgm_file
music_translate $bgm_file
_bgm $bgm_file
if %dwave_vol=1 _bgmvol ?dwave_vol[50]
return

*bgmonce
getparam $bgm_file
music_translate $bgm_file
_bgmonce $bgm_file
if %dwave_vol=1 _bgmvol ?dwave_vol[50]
return

*loopbgm
getparam $bgm_file,$bgm_file2
music_translate $bgm_file
music_translate $bgm_file2
_loopbgm $bgm_file,$bgm_file2
if dwave_vol=1 bgmvol ?dwave_vol[50]
return

*dwave
getparam %dwave_ch,$dwave_file
music_ch_verify %dwave_check,%dwave_ch
if %dwave_check=0 return
music_translate $dwave_file
_dwave %dwave_ch,$dwave_file
if %dwave_vol=1 _chvol %dwave_ch,?dwave_vol[%dwave_ch]
return

*dwaveload
getparam %dwave_ch,$dwave_file
music_ch_verify %dwave_check,%dwave_ch
if %dwave_check=0 return
music_translate $dwave_file
_dwaveload %dwave_ch,$dwave_file
return

*dwaveloop
getparam %dwave_ch,$dwave_file
music_ch_verify %dwave_check,%dwave_ch
if %dwave_check=0 return
music_translate $dwave_file
_dwaveloop %dwave_ch,$dwave_file
if %dwave_vol=1 _chvol %dwave_ch,?dwave_vol[%dwave_ch]
return

*dwaveplay
getparam %dwave_ch
music_ch_verify %dwave_check,%dwave_ch
if %dwave_check=0 return
_dwaveplay %dwave_ch
if %dwave_vol=1 _chvol %dwave_ch,?dwave_vol[%dwave_ch]
return

*dwaveplayloop
getparam %dwave_ch
music_ch_verify %dwave_check,%dwave_ch
if %dwave_check=0 return
_dwaveplayloop %dwave_ch
if %dwave_vol=1 _chvol %dwave_ch,?dwave_vol[%dwave_ch]
return

*chvol
getparam %dwave_ch,%dwave_temp
music_ch_verify %dwave_check,%dwave_ch
if %dwave_check=0 return
mov ?dwave_vol[%dwave_ch],%dwave_temp
_chvol %dwave_ch,?dwave_vol[%dwave_ch]
return

*bgmvol
getparam %dwave_temp
mov ?dwave_vol[50],%dwave_temp
_bgmvol ?dwave_vol[50]
return
